sub pv1000sound(tch as ubyte, tvl as ubyte)
  out $F8+(tch band 3),tvl band 63
  end sub
